home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / FRENCH SCENE.bas < prev    next >
BASIC Source File  |  2020-07-23  |  1KB  |  38 lines
  1. 10 D$ =  CHR$(4)
  2. 20  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 3000  TEXT : HOME 
  4. 3020  VTAB 10: PRINT "THE AMERICAN TOURIST WAS IN PARIS WITH  HIS CAMERA.  HE ASKED TWO GOOD LOOKING  FRENCH GIRLS IF HE COULD TAKE THEIR     PICTURE. 
  5. 3025  FOR G1 = 1 TO 5000: NEXT G1
  6. 3030 A = 1
  7. 3040  PRINT D$;"BLOAD PIC.DOUBLE1,A$7000": GOSUB 5000
  8. 3050  GOSUB 3250
  9. 3060  VTAB 22: PRINT "WHY WASTE TIME WITH PICTURES.  WE'LL    SHOW YOU A TIME THAT YOU CAN REMENBER   BETTER THAN LOOKING AT PHOTOS!!
  10. 3065  FOR G1 = 1 TO 5000: NEXT G1
  11. 3070  PRINT D$;"BLOAD PIC.DOUBLE3,A$7000": GOSUB 5010
  12. 3080  VTAB 22: PRINT "LET'S THE THREE OF US GO OVER TO OUR    APARTMENT AND HAVE A LITTLE FUN.  YOU   AMERICAN MEN ARE LIKE LITTLE BOYS.
  13. 3085  FOR G1 = 1 TO 5000: NEXT G1
  14. 3090  PRINT D$;"BLOAD PIC.DOUBLE2,A$7000": GOSUB 5000
  15. 3100  POKE  -16302,0
  16. 3110  GOSUB 3160
  17. 3120  POKE  -16299,0
  18. 3130  GOSUB 3170
  19. 3140  POKE  -16300,0
  20. 3150  GOTO 3110
  21. 3160  REM 
  22. 3170  FOR I = 1 TO 50  STEP A
  23. 3180 TN = 200 -2 *A -I
  24. 3190  POKE 768,TN: POKE 769,10
  25. 3200  CALL 770
  26. 3210  NEXT 
  27. 3220 A = A +1
  28. 3230  IF A >99  THEN 3290
  29. 3240  RETURN 
  30. 3250  POKE  -16297,0
  31. 3260  POKE  -16304,0
  32. 3270  POKE  -16301,0
  33. 3280  RETURN 
  34. 3290  PRINT D$;"RUN MENU"
  35. 5000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  36. 5001  RETURN 
  37. 5010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  38. 5011  RETURN